music compiler »27/l/67 

top=7777 

dimension rdb(±4o) 
define error x 

terminate 

define complain x 

terminate 

0/ 
beg, 



busy, 
nots, 

stp, 



cln, 



jsp er 
flexo x 



jsp erl 
flexo x 



jmp cln 

lem 

clcVlia 

tyo 

cli 

law flexo af 

arq 

jmp nots 

tyi 

law 47 

arq 

jmp busy 

law 51 

arq i 

jmp rt-2 

jsp txx 

text /busy/ 

jmp beg 

cliVclavhltVlaiVclf 7 

jmp rt-2 

clcVlia 

tyo 

cli 

law flexo af 

arq 

jmp nots 

tyi 

lai 

sad (77 

jmp rt-2 

law i 51 

arq 

law i 20 

jda fee 

lac (600000 

jda ppp 

law i 520 

jda fee 

law i 47 

arq 

dsm 

clcVhlt 



pnt, 



tmt, lac ss /get implicit articulation 

/1=0, s=l, e=2, h=3, q=4 
/check for embellishments 



s70, 



s72, 



rr, 



add 


■ 


dac 


tne 


add 


til 


sub 


(10. 


spa 




jmp 


uat 


sub 


(63. 


sma 




jmp 


uat 


add 


(64. 


dac 


tne 


lac 


si 


spa 




jmp 


tms 


sza 


i 


-jmp 


tmt 


sub 


(1 


jmp 


• "T<£- 


lac 


ss 


dac 


sv 


lac 


et 


spa 




jmp 


tme 


sza 




jmp 


emb 


lac 


sv 


ral 


6s 


jmp 


.42 


cla 




ior 


tne 


ral 


9s 


ior 


nft 


jda 


nc 


lac 


nl 


dac 


ltn 


lac 


nft 


adm 


mm 


lac 


si 


dac 


sid 


jmp-* 


out 


lac 


tne 


sza 


i 


jmp 


rr 


lac 


ton 


jmp 


s2v 


dzm 


tne 


lac 


sh 


ior 


na 


ior 


fl 


ior 


si 


ior 


et 


sza 


i 


jmp 


s70 


error air 


jmp 


s70 



/corrected for accidentals, key sig. a, 
/0=4th g below middle c 
/84=4th g above middle c 
/correct for up, down 



/l=3rd f below middle c "bass b5 H 
/63=3rd g above middle c "treble 17" 
/calculate articulation 



/last note 

/no. of 192nds used in measure 

/explicit articulation of last note 



cpp, lac tne /copy pitch from previous note 

/was a rest 



eor, 
eit, 
tme, 
tms, 

uat, 



tmf, 
del, 



tff, 
ert, 
unc, 
dtu, 
tic, 

up, 

upl, 
down, 



bass, 

tenor, 

alto, 

treble, 

clef, 
units, 



error eor 
jmp s70 
error eit 
jmp s70 
error tme 
jmp s70 
error tms 
jmp tmt 
error uat 
dzm tne 
jmp s70 
error tmf 
cla 

dap mts 
jmp out 
error tff 
jmp del 
error ert 
jmp del 
error unc 
jmp del 
error dtu 
jmp del 
error tic 
jmp del 

jsp read 
sza i 
jmp up 
lac nfl 
dac til 
jmp out 

jsp read 
sza i 
jmp down 
lac nfl 
cma 
jmp upl 

law 13. 
jda clef 

law 17. 
jda clef 

law 19. 
jda clef 

law 25. 
jda clef 



jmp out' 
jsp read 
sza i 
jmp units 
lac nfl 
ral Is 



/drop a note, suppress mts error 





add nfl 




ral Is 




dac 3u 




clc 




dac irl 




jmp out 


1, 


cla 




jda ss 


s, 


law 1 




jda ss 


e* 


law 2 




jda ss 


h, 


law 3 




Jda ss 


q., 


law 4 




jda ss 


SS j 







jmp out 



emb, 



law i 49. 
add ton 
sma 



eor 
(49. 

eor 

(mt-1 

pmt 

(nt-mt 

pnt 

(kt-nt 

pkt 

i pmt 

i pnt 

i pkt 

til 

lwr 

(10. 

eor 
(63. 



jmp 
add 
spq 
jmp 
add 
dap 
add 
dap 
add 
dap 
lac 
add 
add 
add 
add 
sub 
spa 
jmp 
sub 
sma 

jmp eor 
add £64. 
dac tnd 
law 2 
adm pmt 
law 2 
adm pnt 
law 2 
adm pkt 
lac 1 pmt 
add i pnt 
add i pkt 
add til 
add upr 
sub (10. 
spa 

jmp e or 
sub (63. 
sma 

jmp eor 
add £64. 
dac tnf 

lac 1 et 

mul trl 
scr Is 
lai 

sub nft 
szm 

jmp eit 
idx et 
jmp i et 



/next lower note 



/next higher note 
/minimum time required 



/too short 
/dispatch 



m2, 2 /m - trill 

jsp trl 
lio tne 
sraa 
lio tnf 

trn, lai /finish trill 

ral 9s 

ior tl 

jda nc 

lac tl 

cma 

adm t2 

law _i 1 

adm t3 
. sza i 

jmp s72 /done 

etl, lac t2 

sal Is 

add t3 

and (-1 

clivswp 

div t3 /calculate time for next note 

hit 

dac tl 

lac t3 /number of notes remaining 

rar Is 
tr3, jmp . 

tri, dap tr3 /set up trill 

lac nft 
dac t2 
add trl 
and (-1 
clivswp 
div trl 
hit 

sal is /total number of cycles 

dac t3 
jmp etl 

n2, 4 /n - trill with grace notes 

jsp trl 
lio tne 
sma 

lio tnf 
sad (1 
lio tnd 
jmp trn 

k2, 2 /o - mordent 

law 3 
dac t3 
law m2+2 
jmp f 3 



w2, 


2 




jsp trl 




lio tne 




spa 




lio tnf 




jmp trn 


f2, 


4 




law 5 




dac t3 




law n2+2 


f3, 


lio nft 




dio t2 




dap tr3 




jmp etl 


d2, 


3 




lac tne 




ral 9s 




ior trl 




jda nc 




lac tnd 




ral 9s 




ior trl 




jda nc 




lac trl 




ral Is 


etx, 


craa 




add nft 




ral 3s 




ral 6s 




ior tne 




ral 9 s 




jda nc 




jmp s72 


u2, 


Zj. 




lac tnf 




ral 9 s 




ior trl 




jda nc 




lac tne 




ral 9 s 




ior trl 




jda nc 




lac tnd 




ral 9s 




ior trl 




jda nc 




lac trl 




ral is 




add trl 




jmp etx 



/w - inverted trill 



/f - full turn 
/split time 5 ways 



/d - inverted mordent 



/use up remaining time 
ior sv 



/u - turn 



p2, 3 /p - mordent 

lac tnf 
rar 8s 
lor trl 
sar Is 
jda nc 
lac tne 
rar 8s 
ior trl 
sar Is 
jda nc 
lac tnf 
rar 8s 
ior trl 
sar Is 
jda nc 
lac trl 
sar Is 
dac t3 
sal Is 
add t3 
jmp etx 

o2, 3 /o - odd numbered trill 

lac nft 
dac t2 
and (-1 
cliVswp 
div trl 
hit 

sal Is 
add (1 
dac t3 
law m2+2 
dap tr3 
jmp etl 



trill, 



qqt, 



dtut, 
ertt, 



jsp 
sza 
jmp 
law 
and 
sza 
sas 
jmp 
add 
dac 
and 



read 

i 

trill 

177 

nf2 

nf2 

ertt 

(rcr-1 

qqt 

nf2 



sza 

jmp ertt 
lac fu 
cli 


szavsni i 
jmp dtut 
dac tl 
ral Is 
lio cl 
sni 

add tl 
dac trl 
jmp out 

error dtu 
jmp out 
error ert 
jmp out 



key, law kt 
dap ,+3 
law mt 



ke2, 



ke3, 



ke4, 



ke5, 



dzm 


• -re 

• 


dzm 


• 


idx 


.-2 


idx 


.-2 


sas 


.+2 


jmp 


.-5 


dzm 


mt+49. 


dzm 


kt+49. 


J'sp 


read 


sza 


i 


dzm 


nfl 


add 


sh 


add 


na 


add 


fl 


sza 


i 


jmp 


ke2 


lac 


na 


sza 




jmp 


out 


elf 


2 


lac 


fl 


sza 


i 


stf 


2 


sza 


i 


lac 


sh 


sub 


nfl 


spa 




cla 




add 


nfl 


dac 


nf2 


law 


1 1 


szf 


2 i 


law 


i 5 


dac 


nf 


lac 


nf2 


sza 


i 


jmp 


out 


lac 


nf 


dac 


en 


law 


7 


adm 


en 


sub 


(49. 


sma 




jmp 


ke5 


add 


(kt+49. 


dap 


• 1 1 


law 


i 1 


szf 


2 


law 


1 


adm 


• 


jmp 


ke4 


law 


3 


szf 


2 


law 


4 



/sharp 



add nf 



sma 

sub (7 
dac nf 
law i 1 
adm nf 2 
jmp ke3 



ne, /deposit note 



cnx, 

sbc, /deposit bar 



PPX, 








dap 


cnx 


idx 


nl 


sad 


be 


jmp 


tof 


lac 


nc 


dac 


i nl 


jmp 


• 







dap 


sbx 


law 


i 1 


adm 


be 


sad 


nl 


jmp 


tof 


lac 


sbc 


dac 


i be 


idx 


bli 


idx 


bl2 


jmp 


• 







dap 


fex 


szs 


10 


jmp 


fex 


cli 




ppa 




isp 


fee 


jmp 


fee+2 


jmp 


• 







dap 


PPX 


szs 


10 


jmp 


ppx 


lio 


PPP 


PPb 




ril 


6s 


ppb 




ril 


6s 


ppb 




jmp 


• 



sbx, 

fee, /feed 



fex, 

pp'p, /punch binary word 



in, 
inO, 



inx, 
ilp, 

/ 

er, 
eri, 



erk, 



er3, 



dap 


inx 


cks 




ril 


Is 


spi 


i 


jmp 


.-3 


rrb 




iot 


1 


sni 




jmp 


inO 


rir 


7s 


spi 




jrap 


inO 


ril 


7s 


lai 




ior 


(rar 


dac 


.+2 


law 


2525 







sraa 




jrap 


ilp 


law 


77, 


and 


.-4 


jmp 


• 


jsp 


txx 


text /ilp 


jrap 


inO 


elf 


3 


jmp 


.+2 


stf 


3 


dap 


erx 


szf 


6 


jmp 


er3 


lac 


poi 


dap 


fl2 


lac 


ch 


sad 


(77 


jmp 


er3 


idx 


fl2 


sad 


(dac rdb+l4o 


jrap 


bof 


Jsp 


in 


dac 


i fl2 


jrap 


erk 


skp 


• 


jmp 


erq 


jsp 


red 


jsp 


Uaa 


text 


■ / 



/read character 



/error - print syllable in r 
/error 



/entire line already in 
/read in rest of line 



To err is human- to forgive, divine. 

/ 



erq. 



erl, 



ern 



erm. 



erx, 



cla 

dap er3 
jsp blk 
szf 5 
jmp erm 
szf 3 



szf 

jmp 



6 i 

jmp erm 
law rdb 
dap fl2 
szf 3 
jmp ern 
lac fl2 
sad fll 
jsp red 
lac fl2 
sad poi 
jsp blk 
lio i fl2 
tyo 

Idx f 12 
lai 

sas (77 
jmp erl 
stf 5 



6 
(36 



stf 
lio 
tyo 
szf 3 
jsp red 
szf 3 i 
jsp t>lk 
lac . 
lio .+3 
rcl 6 s 
tyo 
sas . 
jmp .-3 
clcviia 
tyo 

idx erx 
jsp blk 
jmp i erx 



/syllable already printed 



/call to erl and line has been printed 



I) of, 


jsp 


txx 




text / 


Source 

/ 


line has too many characters. 


law 


rdb 




dap poi 




11 


i poi 




tyo 






idx 


poi 




sas 


(dac rdb+100 




jmp 


.-3 




clcviia 




tyo 






jmp beg 


tof, 


jsp 


txx 




text / 


Table 


overflow. Subdivide source text 


/ 








jmp 


beg 


red, 


dap 


rx 




law 35 




jmp 


.+3 


blk, 


dap 


rx 




law 


34 




sad 


clr 


rx, 


jmp 


, 




dac 


clr 




lia 






tyo 






jmp 


rx 


clr, 


34 




txx, 


dap 


txy 




lio 


i txy 




idx 


txy 




lac 


(6076OO 




rcl 


6s 




sad 


(lai 


txy, 


jmp 


, 




sad 


• +2 




jmp 


txx+1 




swp 






tyo 






lia 






jmp 


txy-3 



read, 



rel, 



rip, 



poi 



dap 


rex 


law 


77 


sas 


ch 


jmp 


rel 


law 


rdb-1 


dap poi 


elf 


6 


law 


1 


add 


poi 


dap 


fll 


law 


40 


dac 


7c 


law 


100 


dac 


Tu 


dzm 


tfi 


dzm 


tf2 


law 


tfl 


dap tp 


dzm 


en 


law 


nfl 


dap 


np 


dzm 


al 


dzm 


bl 


dzm 


cl 


dzm 


si 


dzm 


rl 


dzm 


cm 


dzm 


fl 


dzm 


na 


dzm 


sh 


dzm 


si 


dzm 


upr 


dzm 


lwr 


dzm 


et 


elf 


4 


elf 


5 


idx 


poi 


sad 


(dac rdb+l4c 


jmp 


bof 


szf 


6 


jmp 


inl 


Jsp 


in 


dac 


• 


sad 


(72 


elf 


4 


szf 


4 


jmp 


rip 


dac 


ch 


add 


(dtb 


dap 


dtp 



/read syllable and terminate 



/if new line, reset buffer 
/on if line already in buffer 

/points to first character of syllable 
/current value of dot 

/dots accumulated in fu 



/counts non-numeric characters 



/clear all counters 



/on if reading comment 

/on if number partially entered 



/character already in 



/comment 



dtp, 



emu 



eraa, 



em. 



tp, 



inl, 



lio 


• 


spi 


i 


jmp 


tp-1 


XCw 


i dtp 


jmp 


ema 


lio 


i dtp 


rir 


2s 


law 


upr 


spi 




law 


lwr 


dap 


emu 


law 


1 


and 


i dtp 


sza 


i 


law 


i 1 


adra 


• 


jmp 


tp 


spa 




jmp 


em 


lio 


si 


dac 


si 


sni 




jmp 


tp 


clc 




dac 


si 


jmp 


tp 


lio 


et 


dap 


et 


sni 




jmp 


tp 


clc 




dac 


et 


jmp 


tp 


idx 


i dtp 


lac 


• 


lio 


ch 


rcr 


6s 


dac 


i tp 


idx 


en 


sad 


(3 


idx 


tp 


szf 


5 


idx 


np 


jmp 


rlp-1 


lac 


i poi 


jmp 


poi+1 



/articulation or embellishment 
/i*j>y> or z 



/too many 



/too many 

/count 

/pack 



dtb, 



cm. 



rl, 



fl, 

na, 

sh, 

al, 
bl, 
cl, 



gl* 



jmp sep 

repeat 11, jmp n 

jmp rip 

jmp rip 

jmp rip 

jmp rip 

jmp rip 

jmp rip 

jmp n 

jmp sep 

law 2 

jmp tp 

law i 7777-u2 

jmp tp 

law i 7777-w2 

jmp xe 

sni 3 

sni 2 

jmp rip 



jmp rip 

jmp rip 

jmp sep 

jmp rip 

jmp rip 

sni 



1 

i 
i 
I 
1 
5 



law 

law 

law 

law 

law 

law 

law 



jmp rip 

jmp rip 





jmp rip 



jmp rip 







law 

law 

law 



law 

sni 



7777-k2 



7777-m2 
7777-n2 
7777-o2 
7777-P2 



7777-d2 
7777-f2 



dt b+100, 



jmp rip 
jmp dot 
jmp upc 
jmp rip 
jmp rip 
jmp sep 



/space 
/stop code 



/slash 

/s - stacatto 

/u - turn 

/w - inverted trill 

/y - raise lower note 
/z -. depress lower note 

/comma 



/tab 



/j - depress upper note 

/k - mordent 

/l - legato: 

/m - trill 

/n - trill with grace notes 

/o - odd numbered trill 

/p - shake 

/q - quarter 

/r - rest 



/- - flat 
/) - natural 

/( - sharp 



/a - above 

/b - below 

/c - triplet 

/d - inverted mordent 

/e - normal articulation 

/f - full turn 

/g - grace note 

/h - half 

/i - depress upper note 

/dot 
/upper case 



/car* ret. 



tfl, 

tf2, 
nfl, 
nf2, 



n. 



np, 



npi, 



upc, 



sep, 



rex, 
dot, 



xe 























lac 


• 


sad 


np 


jmp 


npl 


szf 


5 i 


dzm 


i np 


lac 


• 


ral 


2s 


add 


i np 


ral 


Is 


lio 


ch 


rir 


5s 


spi 


i 


add 


ch 


dac 


i np 


dac 


nf2 


stf 


5 


jmp 


rip 


stf 


4 


jmp 


rip 


szf 


5 


idx 


np 


lac 


np 


sub 


_[lac nfl 


dac 


nf 


elf 


5 


jmp 


• 


lac 


fc 


sma 




adra 


fu 


spa 




dzm 


fu 


lac 


fc 


sma 




rar 


Is 


dac 


fc 


jmp 


tp 



fll, dac 
fl2, dac 
constants 



/text of pseudo-instruction 
/first numeric field 

/digit 



/upper case 



/space, tab, c.r., or slash 



/number of numeric fields 
/on if syllable is printed 



/dot 



/dot error 



/points to beginning of syllable 
/pointer used by err 



nt, 


/main 


decimal 







2 


5 


7 


12 


14 


1 7 


19 


24 


26 


CLy 


31 


36 


38 


41 


43 


48 


50 


53 


55 


60 


62 


72 


74 


77 


79 


84 




octal 




kt, 


.+50./ 


rat, 


•+50./ 


variables 




not, 




start beg 





4 




9 


10 


16 




21 


22 


28 




33 


34 


40 




45 


46 


52 




57 

6465 


58 


67 


76 




81 


82 







/key signature table 
/status of current measure 



*1 



ng. 



s2v, 



s2w, 

pkt, 

pmt, 



jmp 


ng+1 


craa 




adm 


nft 


sub 


(6 


sma 




jmp 


ng 


lac 


nft 


sub 


rob 


sma 




jmp 


ng 


error itg 


lac 


nfp 


dac 


nft 


dzm 


rob 


lac 


rl 


sza 




jmp 


rr 


lac 


nf 


sza 


i 


jmp 


cpp 


lac 


al 


sub 


bl 


dac 


al 


ral 


Is 


add 


al 


ral 


2s 


add 


nfl 


add 


clef 


dac 


ton 


spa 




jmp 


uat 


sub 


(50. 


sma 




jmp 


uat 


law 


mt 


add 


ton 


dap pmt 


add 


(nt-mt 


dap pnt 


add 


(kt-nt 


dap pkt 


lac 


sh 


add 


fl 


add 


na 


sza 


i 


jmp 


pmt 


cla 




sas 


sh 


sad 


•fl 


jmp 


s2w 


error nor 


jmp 


pmt 


lac 


sh 


sub 


fl 


sub 


• 


dac 


i pmt 


jmp 


pmt+1 


lac 


• 


add 


i pkt 



/rob it 

/only l/32nd left 

/ok anyway 
/unrob it 

/rest 
/copy pitch 



/pitch corrected for a,b 

/0=7th leger line below bass clef 
/49=space above 7th leger line above tre 



/no accidentals given 



/save it in mt for rest of measure 



16, 



qq. 



Sn; 



15, 



gr. 



nr 



sza 




jmp 


gr 


law 


177 


and 


nf2 


sza 




sas 


nf2 


jmp 


ert 


add 


( rcr-1 


dac 


qq 


and 


nf2 


sza 




jmp 


ert 


lac 


fu 


cli 









szavsni i 


jmp 


dtu 


dac 


tim 


ral 


Is 


11 o 


cl 


sni 




add 


tim 


dac 


nfp 


dac 


nft 


dio 


ccc 


lac 


O^"' 


sza 


i 


jmp 


nr 


lac 


nft 


adm 


rob 


jmp 


ng+1 


lac 


cl 


ior 


ccc 


lia 




lac 


tim 


spa 




jmp 


unc 


ral 


Is 


sni 




add 


tim 


dac 


nfp 


dac 


nft 


law 


100 


sas 


fu 


jmp 


tic 


lac 


gl 


sza 




jmp 


gr 


jmp 


ng+1 


law 


1 


sas 


nf 


jmp 


16 


lac 


(rcr 5s 


dac 


qq 


jmp 


qq-2 


lac 


rob 


sza 


i 



/grace note 
/check duration 



/dot underflow 

/duration in 64ths with dots 



/duration in 192nds with dots and triple 
/save triplet status 



/grace note 



/comma, get previous time 



/previous time in 64ths 
/undefined 



/no dots allowed 



/grace note with comma 



/if two fields, use given duration 

/make it a 32nd 

/not grace note or comma 



ffl, 



ff2, 



ff3, 



ff4, 



17, 



lac nfl 
dac bl2 
law 600 
jmp bb2 

law 1 
sub cm 
sma 

jmp ff2 
law 1 
dac cm 
error tmc 
law 1 
sub gl 
sma 

jmp f f3 
error trag 
law 1 
dac gl 
law 1 
sub rl 
sma 

jmp ff4 
error tmr 
law 1 
dac rl 
lac rl 
and gl 
sza 

jmp tmf 
law 2 
sub era 
sub rl 
sub nf 
spa 

jmp tmf 
lac rl 
sza i 
jmp 17 
lac sid 
szm 
jmp 17 
lac ltn 
spa 

jmp 17 
lio i ltn 
cla 

ril 3s 
rcr 3s 
dlo i ltn 
lio cm 
sni 1 
jmp 15 
law i 2 
add rl 
add gl 
add nf 
spa 

jmp tff 
lac gl 



/permit alternate numbering 



/a note 



/rest 

/no explicit articulation on last note 
/last note was in this measure 

/make preceding note legato 
/no comma 

/must have 2 of r,g, number 



out, 



dun, 



dux, 



du2, 



dul, 



mts, 



ff, 



Tabs, 
bbl, 
bb2, 
bbl, 



law 


21 


sas 


ch 


jmp 


lup 


jsp 


dun 


jmp 


lul 


dap 


dux 


lio 


mm 


sni 




jmp 


• 


lac 


rob 


sza 


i 


jmp 


du2 


complain itg 


lac 


(600000 


jda 


nc 


lac 


lmb 


jda 


sbc 


lac 


nil 


sza 


i 


jmp 


dul 


add 


i 1 


dac 


nl3 


dzra 


nil 


lac 


nl 


dac 


nl2 


lac 


be 


dac 


bes 


lac 


mm 


sub 


mms 


dac 


mms 


law 


i not-1 


add 


nl 


dac 


lmb 


lac 


mm 


sub 


3u 


sza 


i 


jmp 


dux 


spa 




jmp 


mts 


complain mtl 


jmp 


dux 


skp 


• 


jmp 


dux 


complain mts 


jmp 


dux 


lac 


en 


sza 




jmp 


ffl 


lac 


nfl 


sad 


bll 


jmp 


bbl 


sad 


bl2 


skp 


• 


jmp 


bbl 


dac 


bll 


cla 




dap 


bbs 


jmp 


out 


error bbl 



/other characters present 
/bar label 
/current bar 

/alternate bar 

/skip if alternate bar permitted 



jmp lul 

tempo, jsp read 

sza i 
jmp tempo 
lac nfl 
ior (700000 
jda nc 
jmp out 

pp, cla 

jmp f+1 
p, law 1 

jmp f+1 
mf , law 2 

jmp f+1 
f , law 3 

lor (500000 

jda nc 

jmp out 

end, jsp dun 

lac (600000 

dac i nl /make sure notes end with 60 

cla 

jda nc /note/bar marker 

lac be 

sad ( top+1 

jmp stp /no music 

law not 

dac t3 /punch pointer 

idx nl 

sub be 

add (top-not+1 /total size of i 
p4l, jda ppp 

law i 6 

jda fee 

law i 104 

dac tl /block count 

dzm t2 /chacksum 
p42, lac i t3 

jda ppp 

lac i t3 

adm t2 

idx t3 

sad (top+1 

jmp p43 /done 

sad nl 

lac be /change from notes to bars 

dac t3 

isp tl 

jmp p42 

lac t2 

jmp p4l /punch checksum 
p43, lac t2 

jda ppp /punch last checksum 

law i 20 

jda fee 

jmp stp 



copy. 



cl, 



fclC, 



brc, 



jda 


nc 




lac 


(600000 




jda 


nc 




jmp 


irh 




jsp 


dun 




Jsp 


read 




sza 


i 




jmp 


.-2 




cla 






dap 


bbs 


/forbid alternate labels 


law 


1 1 




add 


bll 




sub 


nfl 




spa 






jmp 


blc 




add 


be 




dac 


cbh 




lac 


nfl 




dac 


tl 




jsp 


read 




sza 


i 




jmp 


.-2 




law 


i 2 




add 


be 




add 


bll 




sub 


nfl 




dac 


nf 2 




law 


1 




add 


nfl 




sub 


tl 




spq 






jmp 


brc 




law 
add 


i not-1 
nl 




sad 


Imb 


* 


jmp 


cl 




law 


not 


/stray tempo or loudness com 


add 


i cbh 




dap 


.+1 




lac 


• 




jda 


nc 




sad 


(600000 




jmp 


.+3 




idx 


.-4 




jmp 


.-5 




lac 


lmb 




jmp 


cl+1 




lac 


i cbh 




jda 


sbc 




law 


i 1 




adm 


cbh 




sas 


nf2 




jmp 


cl 




jmp 


luO 




error blc 




jsp 


read 




sza 


1 




jmp 


• -2 




jmp 


lul 




error Tare 





ttb, 



ttn, 

rest, 



irh, 
irm, 

irn. 



irk, 



text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 
text 






/ 



/sert / 
/yek / 
/pocy / 
/inust / 
/PP / 

Am / 

/? / 

/metop / 
/dne / 
/irtll / 
/sabs / 
/ertelb/ 
/netro / 
/tlao / 
/pu / 
/wodn / 
/epon / 
/olces / 



Jmp 


s 


Jmp 


e 


Jmp 


1 


jmp 


h 


jmp 


q 


jmp 


rest 


Jmp 


key 


jmp 


copy 


jmp 


units 


jmp 


PP 


Jmp 


P 


jmp 


mf 


jmp 


f 


Jmp 


tempo 


Jmp 


end 


Jmp 


trill 


Jmp 


bass 


jmp 


treble 


jmp 


tenor 


jmp 


alto 


jmp 


up 


Jmp 


down 


jmp 


open 


jmp 


close 



jsp dun 

jsp read 

sza i 

jmp ,-2 

lac nfl 

sza i 

jmp lui 

cma 

dac nfl 

lac irl 

sma 

jmp irm /rest already exists 

law i not-1 

add nl 

dac irl /location of rest 

lac 3u 

jda nc 

lac (600000 

jda nc 

lac lmb 

jmp irn+1 

law i not-1 

add nl 

sas lmb 

jmp irk 

lac irl 

jda sbc 

isp nfl 

jmp irn 

jmp luO 

law not 

add irl 

dap .+1 

lac . 



/stray tempo or loudness comi 



cl3, lac (600000 

jda nc 
lac lmb 
jda sbc 

cl4, law not 

add lmb 
dac tl 
dzm nl2 
law i not-1 
add nl 
dac lmb 
lac tl 

cl5, sad t2 " 

jmp cl6 
lac i tl 
jda nc 
idx tl 
jmp cl5 

cl6, lac bcs 

sad t3 
jmp out 
law i 1 
adm bcs 
lac 1 bcs 
jda sbc 
jmp cl6 

ell, lac nl3 

sas nl2 
jmp rtc 
jmp cl4 

els, lac nil 

sza 

jmp rtc 
error nop 
dzm nil 
jmp out 

rtc, error rtc 

jmp out 

clt, spa 

jmp ,+4 
error rtl 
jmp cl2 
xct mts 
jmp cl2 
error rts 
jmp cl2 



open. 



opl, 

tmo, 
close, 



cl2, 



clc 




dac 


ltn 


lac 


nil 


ior 


nl2 


sza 




jmp 


tmo 


law 


1 not-1 


add 


nl 


sas 


lmb 


jmp 


opl 


lac 


nl 


dac 


nl2 


dac 


nl3 


lac 


be 


dac 


Fes 


dzm 


rams 


jmp 


out 


lac 


nl 


dac 


nil 


lac 


mm 


dac 


mms 


jrap 


out 


error trao 


jrap 


out 


clc 




dac 


ltn 


lac 


nl2 


sza 


i 


jrap 


els 


lac 


be 


dac 


t3 


law 


1 


add 


nl 


dac 


t2 


lac 


mm 


add 


mms 


sza 


i 


jrap 


ell 


sub 


3u 


sza 




jmp 


clt 


lac 


nl3 


sad 


nl2 


jmp 


cl3 


lac 


i nl3 


jda 


nc 


idx 


nl3 


jmp 


cl2 



/at beginning of measure 



sma 

jmp nps 
law ttb 
dap sp 

sp, lac . 

sas tfl 
jmp ngl 
idx sp 
lac i sp 
sas tf2 
jmp ngi+1 
idx sp 
jmp i sp 

ngl, idx sp 

idx sp 
idx sp 

sas (lac ttn 
jmp sp 

nps, error nps 

jmp out 



luO, 
lul, 



lup, 



law 

dap 

cla 

dap 

clc 

dac 

law 

dac 

dac 

law 

dac 

lac 

dac 

law 

dac 

law 

dac 

clc 

dac 

law 

dac 

law 

dac 

law 

dac 

dzm 

dzm 

dzm 

law 

dap 

dzm 

idx 

sas 

jmp 

dzm 

law 

add 

dac 

dzm 

clc 

dac 

law 

dap 

law 

dap 

dzm 

idx 

sas 

jmp 

dzm 

dzm 

J'sp 

add 

sza 

jmp ff 

lac en 

sza i 

jmp out 

sub (7 



600 
er3 

bbs 

tim 
1 

bll 
bl2 

77 

ch 

(top+1 

not-1 
nl 
32. x6 

3u 

Irl 

6 

trl 

25. 
clef 

2 

S3 

nil 

nl2 

til 

kt 

.+1 

• 

.-1 

.+2 

.-3 

kt+49 . 
1 not-1 
nl 
lmb 
mm 

Ttn 

600 

mts 

mt 

.+1 

• 

.-1 

.+2 

.-3 

mt+49. 

rob 

read 

cm 



/on if alternate bar label p 
/previous time=unde fined 

/initial separators. r. 



/units=32 

/location of a rest 

/trill time=32nd 

/clef=treble 

/normal articulation=e 
/repeat indicators 

/up/down=0 
/key= ) 



/set lmb to poin 

/time used in this measure 
/last note in this measure 

/clear accidentals 



/time robbed for grace notes 



/numeric fields or comma pre 



/nothing 
/pseudo-instruction 



iot 1 
rt, 



rtl, 



rrb 




law 


rdb 


dap 


poi 


dap 


fl2 


Jsp 


in 


sad 


(13 


jmp 


.-2 


dac 


ch 


dac 


i poi 


idx 


poi 


sad 


(dac rdb+l4o 


jmp 


rtl 


law 


21 


sas 


ch 


jmp 


rt+3 


lio 


i f 12 


tyo 




idx 


fl2 


sas 


poi 


jmp 


rtl 


law 


21 


sas 


ch 


jmp 


rt 


clcVlia 


tyo 




law 


i 6301 


arq 





